Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/loanapp/loanf10.frm

Text File | 1995-05-07 | 8KB | 243 lines

VERSION 2.00
Begin Form Form10
   BackColor       =   &H00808080&
   ClientHeight    =   3300
   ClientLeft      =   300
   ClientTop       =   2160
   ClientWidth     =   8880
   ControlBox      =   0   'False
   Height          =   3705
   Left            =   240
   LinkMode        =   1  'Source
   LinkTopic       =   "Form10"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3300
   ScaleWidth      =   8880
   Top             =   1815
   Width           =   9000
   Begin CommandButton Command3
      Caption         =   "Cancel"
      Height          =   300
      Left            =   4995
      TabIndex        =   16
      Top             =   2805
      Width           =   3000
   End
   Begin CommandButton Command1
      Caption         =   "Ok"
      Height          =   300
      Left            =   885
      TabIndex        =   15
      Top             =   2805
      Width           =   3000
   End
   Begin PictureBox Picture5
      Height          =   600
      Left            =   45
      ScaleHeight     =   570
      ScaleWidth      =   4140
      TabIndex        =   12
      Top             =   2010
      Width           =   4170
      Begin PictureBox BEditF10
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   5
         Left            =   2910
         ScaleHeight     =   465
         ScaleWidth      =   1155
         TabIndex        =   14
         Top             =   30
         Width           =   1185
      End
      Begin Label Label5
         Caption         =   "Number of years at this address:"
         Height          =   210
         Left            =   105
         TabIndex        =   13
         Top             =   240
         Width           =   2835
      End
   End
   Begin PictureBox Picture4
      Height          =   900
      Left            =   6840
      ScaleHeight     =   870
      ScaleWidth      =   1965
      TabIndex        =   3
      Top             =   1035
      Width           =   1995
      Begin PictureBox BEditF10
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   4
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   1845
         TabIndex        =   11
         Top             =   345
         Width           =   1875
      End
      Begin Label Label4
         Caption         =   "Zip Code:"
         Height          =   210
         Left            =   45
         TabIndex        =   10
         Top             =   45
         Width           =   900
      End
   End
   Begin PictureBox Picture3
      Height          =   900
      Left            =   5850
      ScaleHeight     =   870
      ScaleWidth      =   885
      TabIndex        =   2
      Top             =   1035
      Width           =   915
      Begin PictureBox BEditF10
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   3
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   765
         TabIndex        =   9
         Top             =   360
         Width           =   795
      End
      Begin Label Label3
         Caption         =   "State:"
         Height          =   240
         Left            =   45
         TabIndex        =   8
         Top             =   45
         Width           =   570
      End
   End
   Begin PictureBox Picture2
      Height          =   900
      Left            =   45
      ScaleHeight     =   870
      ScaleWidth      =   5700
      TabIndex        =   1
      Top             =   1035
      Width           =   5730
      Begin PictureBox BEditF10
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   2
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   5580
         TabIndex        =   7
         Top             =   315
         Width           =   5610
      End
      Begin Label Label2
         Caption         =   "City:"
         Height          =   255
         Left            =   45
         TabIndex        =   6
         Top             =   45
         Width           =   435
      End
   End
   Begin PictureBox Picture1
      Height          =   900
      Left            =   45
      ScaleHeight     =   870
      ScaleWidth      =   8760
      TabIndex        =   0
      Top             =   60
      Width           =   8790
      Begin PictureBox BEditF10
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   1
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   8640
         TabIndex        =   5
         Top             =   330
         Width           =   8670
      End
      Begin Label Label1
         Caption         =   "Address:"
         Height          =   210
         Left            =   45
         TabIndex        =   4
         Top             =   45
         Width           =   1725
      End
   End
End

Sub BEditF10_LostFocus (Index As Integer)
    If Index = 3 Then
        Form10.BEditF10(3).Text = UCase$(Form10.BEditF10(3).Text)
    End If
End Sub

Sub Command1_Click ()
    Select Case AddressBox
        Case 1
            MainRec.B.B1 = Form10.BEditF10(1).Text
            MainRec.B.B2 = Form10.BEditF10(2).Text
            MainRec.B.B3 = Form10.BEditF10(3).Text
            MainRec.B.B4 = Form10.BEditF10(4).Text
            UpdateLabelB
        Case 2
            MainRec.I.B1 = Form10.BEditF10(1).Text
            MainRec.I.B2 = Form10.BEditF10(2).Text
            MainRec.I.B3 = Form10.BEditF10(3).Text
            MainRec.I.B4 = Form10.BEditF10(4).Text
            MainRec.I.B5 = Form10.BEditF10(5).Text
            UpdateLabelI
        Case 3
            MainRec.J.B1 = Form10.BEditF10(1).Text
            MainRec.J.B2 = Form10.BEditF10(2).Text
            MainRec.J.B3 = Form10.BEditF10(3).Text
            MainRec.J.B4 = Form10.BEditF10(4).Text
            MainRec.J.B5 = Form10.BEditF10(5).Text
            UpdateLabelJ
    End Select
    Form10.Hide
End Sub

Sub Command3_Click ()
    Form10.Hide
End Sub

Sub Form_Load ()
    Form10.Left = 300
    Form10.Top = (Screen.Height - Form10.Height) / 2
End Sub